home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / convert1.proc < prev    next >
Text File  |  2007-02-28  |  428b  |  17 lines
  1. 9010 PROC CONVERT(NUMBER,REF BASE#,REF RES$) CLOSED
  2. 9020 IF NUMBER<>0 THEN
  3. 9030 POWER:=INT(LOG(NUMBER)/LOG(BASE#))
  4. 9040 FOR COUNT:=POWER TO 0 STEP -1 DO
  5. 9050 DIGIT:=INT(NUMBER/(BASE#^COUNT))
  6. 9060 NUMBER:=NUMBER-DIGIT*BASE#^COUNT
  7. 9070 IF DIGIT<10 THEN
  8. 9080 RES$:=RES$+CHR$(DIGIT+ORD("0"))
  9. 9090 ELSE 
  10. 9100 RES$:=RES$+CHR$(DIGIT-10+ORD("┴"))
  11. 9110 ENDIF 
  12. 9120 ENDFOR COUNT
  13. 9130 ELSE 
  14. 9140 RES$:="0"
  15. 9150 ENDIF 
  16. 9160 ENDPROC CONVERT
  17.